1 POKE53281,1:POKE646,0
2 PRINT"[147]       ***SOUNDMAKER FUER C 64***":PRINT""
3 PRINT"MIT DIESEM PROGRAMM KANNST DU TOENE ER- STELLEN UND AUF DISK SAVEN."
4 PRINT"ES ZEIGT DIR ALLE PARAMETER, DIE DU BE- NOETIGST UND SPIELT DEN TON."
5 PRINT"NACH DER FRAGE 'CHANGE' (AENDERN) ODER  'SAVE' KANNST DU ENTSCHEIDEN:"
6 PRINT"WAEHLST DU 'SAVE', WIRST DU NACH DER     STARTZEILE  UND DEM  ZEILENSPRUNG
7 [153]"GEFRAGT. DANN LOESCHT SICH DAS PROGRAMM.DU KANNST DEN TON JETZT MIT"
8 [153]"BELIEBIGEM NAMEN AUF DISK SPEICHERN.":[153]""
9 [153]"        ** TASTE DRUECKEN **":[151]198,0:[146]198,1:
10 S[178]54272:[129]E[178]S[164]S[170]24:[151]E,0:[130]
15 [153]"LOADON":[141]200
20 [133]"ATTACK RATE:0-15";AT:[133]"DECAY RATE:0-15";DE:AD[178]16[172]AT[170]DE:[151]S[170]5,AD
25 [133]"SUSTAINCLOSEVOLUME:1-15";SU:[133]"RELEASE RATE:0-15";RL:J[178]16[172]SU[170]RL
30 [151]S[170]6,J:[133]"OVERALL VOLUME:1-15";V:[151]S[170]24,V
32 [133]"WAVEFORM:17/33/129 ";W:[151]S[170]4,W
33 [133]"SUSTAIN LENGTH(1/10TH SECS.)";LE:LE[178]LE[172]100
34 [133]"RELEASE LENGTH(1/10TH SECS.)";DL:DL[178]DL[172]100
35 [133]"HIGH BYTE";H:[133]"LOW BYTE";L:[151]S[170]1,H:[151]S,L
40 [129]T[178]1[164]LE:[130]T
42 [151]S[170]4,(W[171]1)
43 [129]T[178]1[164]DL:[130]
50 [129]E[178]S[164]S[170]24:[151]E,0:[130]
60 [153]"CHANGE OR SAVE?WAIT C OR S"
65 [161]A$:[139]A$[178]""[167][137]65:[139]A$[179][177]C[167][137]65:[139]A$[179][177]S[167][137]65
70 [139]A$[178]"C"[167][153]"                ":[137]20
80 [143] [208][210][201][206][212][160][208][210][207][199][210][193][205]
85 [133]"LOADSTARTING LINE";SL:[133]"INCREMENT";IN
86 [153]"LOAD"
88 [153]"NEW"
89 [153]SL;"S=54272:FORE=STOS+24:POKEE,0:NEXT":SL[178]SL[170]IN
90 [153]SL;"POKES+24,";V;":POKES+5,";AD;":POKES+6,";J:SL[178]SL[170]IN
120 [153]SL;"POKES+4,";W;":POKES+1,";H;":POKES,";L:SL[178]SL[170]IN
140 [153]SL;"FORT=1TO";LE;":NEXT";":POKES+4,";(W[171]1);"CMD:FORT=1TO";DL;":NEXT"
150 SL[178]SL[170]IN:[153]SL;"FORE=STOS+24:POKEE,0:NEXT"
155 [153]"";:[129]R[178]631[164]644:[151]R,13:[130]
160 [151]198,13
165 [128]
200 [153]"SAMPLE DATA FOR PITCH VALUES"
205 [153]"PITCH HIGH BYTE/LOW BYTE  WAVEFORMS
210 PRINT"   C       33      135     TRIANGLE=17
220 [153]"   C#      35      134     SAWTOOTH=33
230 PRINT"   D       37      162     NOISE=129
240 [153]"   D#      39      223
250 PRINT"   E       42      62
260 [153]"   F       44      193
270 PRINT"   F#      47      107
280 [153]"   G       50      60
290 PRINT"   G#      53      57
300 [153]"   A       56      99
310 PRINT"   A#      59      190
320 [153]"   B       63      75
330 PRINT
340 RETURN